home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / cicada.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-21  |  14.2 KB  |  620 lines
  1. 10  SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 12,1:PRINT FNCEN$("CICADA",40)
  4. 25  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 30  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 35  PRINT FNCEN$("All Rights Reserved",40)
  7. 40  FOR K=1 TO 2500:NEXT K
  8. 45  CLS
  9. 50                             '***Zapsound***
  10. 55  FOR A=0 TO 20
  11. 60  OUT 66,A:OUT 66,A
  12. 65  OUT 97,(INP(97) OR 3)
  13. 70  NEXT A
  14. 75  SOUND 37,0
  15. 80                              '***End Zapsound***
  16. 85              '*** start draw ***
  17. 90  LINE(160,55)-(80,125)
  18. 95  LINE-(160,195)
  19. 100  LINE-(240,125)
  20. 105  LINE-(160,55)
  21. 110  GOSUB 30000         '** Textpad **
  22. 115  PRINT FNCEN$("Here's CICADA's first fold.",40)
  23. 120  FOR K=1 TO 1500:NEXT K
  24. 125  FOR H=80 TO 240 STEP 2
  25. 130  PSET(H,125)
  26. 135  NEXT H
  27. 140  FOR K=1 TO 750:NEXT K
  28. 145  FOR V=195 TO 125 STEP -1
  29. 150  LINE(80,125)-(160,V)
  30. 155  LINE-(240,125)
  31. 160  LINE(80,125)-(160,V),0
  32. 165  LINE-(240,125),0
  33. 170  NEXT V
  34. 175  FOR V=125 TO 55 STEP -1
  35. 180  LINE(80,125)-(160,V)
  36. 185  LINE-(240,125)
  37. 190  NEXT V
  38. 195  FOR K=1 TO 750:NEXT K
  39. 200  GOSUB 30000     '*** Textpad***
  40. 205  PRINT FNCEN$("Ready?  Press <C> to continue.",40)
  41. 210  A$=INKEY$:IF A$="" GOTO 210
  42. 215  IF A$="C" OR A$="c" GOTO 225
  43. 220  GOTO 200
  44. 225  GOSUB 30000         '** Textpad **
  45. 230  PRINT FNCEN$("The next folds take these corners",40)
  46. 235  FOR K=1 TO 750:NEXT K
  47. 240  FOR K=1 TO 15
  48. 245  PSET(72,125):DRAW"H5D4L7D2R7D4E5"
  49. 250  PAINT(66,125)
  50. 255  PSET(248,125):DRAW"e5D4r7D2l7D4h5"
  51. 260  PAINT(254,125)
  52. 265  CIRCLE(66,125),7,0
  53. 270  PAINT(66,125),0
  54. 275  CIRCLE(254,125),7,0
  55. 280  PAINT(254,125),0
  56. 285  NEXT K
  57. 290  FOR K=1 TO 750:NEXT K
  58. 295  GOSUB 30000         '** Textpad **
  59. 300  PRINT FNCEN$("up to this corner",40)
  60. 305  FOR K=1 TO 750:NEXT K
  61. 310                              '*** arrow down ***
  62. 315  FOR K=1 TO 15
  63. 320  PSET(160,47):DRAW"E5L4U7L2D7L4F5"
  64. 325  PAINT(160,41)
  65. 330  FOR M=1 TO 25:NEXT M
  66. 335  CIRCLE(160,41),7,0
  67. 340  PAINT(160,41),0
  68. 345  NEXT K
  69. 350                              '***end arrow down ***
  70. 355  FOR K=1 TO 750:NEXT K
  71. 360  GOSUB 30000         '** Textpad **
  72. 365  PRINT FNCEN$("across these lines,",40)
  73. 370  FOR K=1 TO 750:NEXT K
  74. 375  LINE(120,90)-(160,125),0
  75. 380  LINE-(200,90),0
  76. 385  FOR K=1 TO 750:NEXT K
  77. 390  GOSUB 30000         '** Textpad **
  78. 395  PRINT FNCEN$("SO!",40)
  79. 400  FOR K=1 TO 750:NEXT K
  80. 405  FOR Q=0 TO 40
  81. 410  LINE(160,125)-(80+Q,125-0.88*Q),0
  82. 415  LINE-(120,90),0
  83. 420  LINE(160,125)-(79+Q,125-0.88*Q),0
  84. 425  LINE-(120,90),0
  85. 430  NEXT Q
  86. 435  FOR Q=0 TO 40
  87. 440  LINE(160,125)-(120+Q,90-0.88*Q),0
  88. 445  LINE-(120,90),0
  89. 450  LINE(160,125)-(120+Q,90-0.88*Q)
  90. 455  LINE-(120,90)
  91. 460  NEXT Q
  92. 465  LINE(160,55)-(160,125),0
  93. 470  FOR K=1 TO 750:NEXT K
  94. 475  FOR Q=0 TO 40
  95. 480  LINE(160,125)-(240-Q,125-0.88*Q),0
  96. 485  LINE-(200,90),0
  97. 490  LINE(160,125)-(241-Q,125-0.88*Q),0
  98. 495  LINE-(200,90),0
  99. 500  NEXT Q
  100. 505  FOR Q=0 TO 40
  101. 510  LINE(160,125)-(200-Q,90-0.88*Q),0
  102. 515  LINE-(200,90),0
  103. 520  LINE(160,125)-(200-Q,90-0.88*Q)
  104. 525  LINE-(200,90)
  105. 530  NEXT Q
  106. 535  LINE(160,55)-(160,125),0
  107. 540  FOR K=1 TO 750:NEXT K
  108. 545  GOSUB 30000     '*** Textpad***
  109. 550  PRINT FNCEN$("OK?  Press <C> to continue.",40)
  110. 555  A$=INKEY$:IF A$="" GOTO 555
  111. 560  IF A$="C" OR A$="c" GOTO 570
  112. 565  GOTO 545
  113. 570  GOSUB 30000      '** Textpad **
  114. 575  PRINT FNCEN$("Let me change scale",40)
  115. 580  FOR K=1 TO 1500:NEXT K
  116. 585  PRINT FNCEN$("and make myself more comfortable.",40)
  117. 590  FOR K=1 TO 1500:NEXT K
  118. 595  GOSUB 30000      '** Textpad **
  119. 600  PRINT FNCEN$("One moment, please.",40)
  120. 605  FOR K=1 TO 1500:NEXT K
  121. 610                             '***Zapsound***
  122. 615  FOR A=0 TO 20
  123. 620  OUT 66,A:OUT 66,A
  124. 625  OUT 97,(INP(97) OR 3)
  125. 630  NEXT A
  126. 635  SOUND 37,0
  127. 640  GOSUB 30000      '** Textpad **
  128. 645  LINE(120,90)-(110,100)
  129. 650  LINE-(160,145)
  130. 655  LINE-(210,100)
  131. 660  LINE-(200,90)
  132. 665  LINE(160,55)-(160,125)
  133. 670  PAINT(160,135)
  134. 675  LINE(160,55)-(160,145),0
  135. 680  FOR K=1 TO 750:NEXT K
  136. 685  GOSUB 30000      '** Textpad **
  137. 690  PRINT FNCEN$("There!  That's better!",40)
  138. 695  FOR K=1 TO 1500:NEXT K
  139. 700  GOSUB 30000      '** Textpad **
  140. 705  PRINT FNCEN$("Purely for your reference,",40)
  141. 710  FOR K=1 TO 1000:NEXT K
  142. 715  PRINT FNCEN$("here's the other center line",40)
  143. 720  FOR K=1 TO 1000:NEXT K
  144. 725  PRINT FNCEN$("of our figure.",40)
  145. 730  FOR K=1 TO 1000:NEXT K
  146. 735  FOR H=110 TO 210
  147. 740  PSET(H,100),1
  148. 745  NEXT H
  149. 750  FOR K=1 TO 750:NEXT K
  150. 755  GOSUB 30000      '** Textpad **
  151. 760  PRINT FNCEN$("Next, these corners",40)
  152. 765  FOR K=1 TO 750:NEXT K
  153. 770  LINE(155,60)-(165,60),0
  154. 775  LINE-(160,65),0
  155. 780  LINE-(155,60),0
  156. 785  LINE(160,55)-(160,59)
  157. 790  FOR K=1 TO 750:NEXT K
  158. 795                             '*** arrow down ***
  159. 800  FOR K=1 TO 15
  160. 805  PSET(160,47):DRAW"E5L4U7L2D7L4F5"
  161. 810  PAINT(160,41)
  162. 815  FOR M=1 TO 25:NEXT M
  163. 820  CIRCLE(160,41),7,0
  164. 825  PAINT(160,41),0
  165. 830  NEXT K
  166. 835                             '***end arrow down ***
  167. 840  LINE(155,60)-(165,60)
  168. 845  LINE-(160,65)
  169. 850  LINE-(155,60)
  170. 855  LINE(160,55)-(160,70),0
  171. 860  FOR K=1 TO 750:NEXT K
  172. 865  GOSUB 30000         '** Textpad **
  173. 870  PRINT FNCEN$("fold down to these points",40)
  174. 875  FOR K=1 TO 750:NEXT K
  175. 880                                '*** flashdot ***
  176. 885  FOR K=1 TO 15
  177. 890  CIRCLE(145,155),5,3
  178. 895  LINE(143,155)-(147,155),3
  179. 900  LINE(145,153)-(145,157),3
  180. 905  CIRCLE(175,155),5,3
  181. 910  LINE(173,155)-(177,155),3
  182. 915  LINE(175,153)-(175,157),3
  183. 920  CIRCLE(145,155),5,0
  184. 925  LINE(143,155)-(147,155),0
  185. 930  LINE(145,153)-(145,157),0
  186. 935  CIRCLE(175,155),5,0
  187. 940  LINE(173,155)-(177,155),0
  188. 945  LINE(175,153)-(175,157),0
  189. 950  NEXT K
  190. 955  FOR K=1 TO 750:NEXT K
  191. 960  GOSUB 30000     '*** Textpad***
  192. 965  PRINT FNCEN$("across these lines,",40)
  193. 970  FOR K=1 TO 750:NEXT K
  194. 975  LINE(110,100)-(160,105),0
  195. 980  LINE-(210,100),0
  196. 985  FOR K=1 TO 750:NEXT K
  197. 990  GOSUB 30000   '*** <Textpad> ***
  198. 995  PRINT FNCEN$("* Hint *",40)
  199. 1000  FOR K=1 TO 750:NEXT K
  200. 1005  PRINT FNCEN$("Our straightedge would be helpful here.",40)
  201. 1010  FOR K=1 TO 1500:NEXT K
  202. 1015  GOSUB 30000   '*** Textpad ***
  203. 1020  PRINT FNCEN$("Press <C> to continue.",40)
  204. 1025  A$=INKEY$:IF A$="" GOTO 1025
  205. 1030  IF A$="C" OR A$="c" GOTO 1040
  206. 1035  GOTO 1015
  207. 1040  GOSUB 30000      '** Textpad **
  208. 1045  PRINT FNCEN$("Fold!",40)
  209. 1050  FOR K=1 TO 750:NEXT K
  210. 1055  LINE(110,100)-(210,100)
  211. 1060  LINE(110,100)-(160,105),0
  212. 1065  LINE-(210,100),0
  213. 1070  FOR Q=0 TO 100
  214. 1075  LINE(110,100)-(160-0.15*Q,56+Q),0
  215. 1080  LINE-(160,105),0
  216. 1085  LINE(110,100)-(160-0.15*Q,56+Q)
  217. 1090  LINE-(160,105)
  218. 1095  LINE(110,100)-(160-0.15*Q,55+Q)
  219. 1100  LINE-(160,105)
  220. 1105  LINE(110,100)-(160,105),0
  221. 1110  LINE(160,55)-(160,145),0
  222. 1115  NEXT Q
  223. 1120  LINE(160,105)-(145,156),0
  224. 1125  FOR K=1 TO 750:NEXT K
  225. 1130  GOSUB 30000      '** Textpad **
  226. 1135  PRINT FNCEN$("and repeat on the other side.",40)
  227. 1140  FOR K=1 TO 750:NEXT K
  228. 1145  FOR Q=0 TO 100
  229. 1150  LINE(210,100)-(160+0.15*Q,56+Q),0
  230. 1155  LINE-(160,105),0
  231. 1160  LINE(210,100)-(160+0.15*Q,56+Q)
  232. 1165  LINE-(160,105)
  233. 1170  LINE(210,100)-(160+0.15*Q,55+Q)
  234. 1175  LINE-(160,105)
  235. 1180  LINE(210,100)-(160,105),0
  236. 1185  NEXT Q
  237. 1190  LINE(160,105)-(175,156),0
  238. 1195  FOR K=1 TO 750:NEXT K
  239. 1200  GOSUB 30000      '** Textpad **
  240. 1205  PRINT FNCEN$("Press <C> to continue.",40)
  241. 1210  A$=INKEY$:IF A$="" GOTO 1210
  242. 1215  IF A$="C" OR A$="c" GOTO 1225
  243. 1220  GOTO 1200
  244. 1225  GOSUB 30000      '** Textpad **
  245. 1230  PRINT FNCEN$("The next fold takes this corner",40)
  246. 1235  FOR K=1 TO 750:NEXT K
  247. 1240  LINE(155,60)-(165,60),0
  248. 1245  LINE-(160,65),0
  249. 1250  LINE-(155,60),0
  250. 1255  LINE(156,59)-(160,56),0
  251. 1260  LINE-(164,59),0
  252. 1265  LINE-(156,59),0
  253. 1270  PAINT(160,58),0
  254. 1275  LINE(154,60)-(160,55)
  255. 1280  LINE-(166,60)
  256. 1285  FOR K=1 TO 750:NEXT K
  257. 1290                             '*** arrow down ***
  258. 1295  FOR K=1 TO 15
  259. 1300  PSET(160,47):DRAW"E5L4U7L2D7L4F5"
  260. 1305  PAINT(160,41)
  261. 1310  FOR M=1 TO 25:NEXT M
  262. 1315  CIRCLE(160,41),7,0
  263. 1320  PAINT(160,41),0
  264. 1325  NEXT K
  265. 1330                             '***end arrow down ***
  266. 1335  FOR K=1 TO 750:NEXT K
  267. 1340  LINE(155,60)-(165,60)
  268. 1345  LINE-(160,65)
  269. 1350  LINE-(155,60)
  270. 1355  LINE(156,59)-(160,56)
  271. 1360  LINE-(164,59)
  272. 1365  PAINT(160,58)
  273. 1370  FOR K=1 TO 750:NEXT K
  274. 1375  GOSUB 30000      '** Textpad **
  275. 1380  PRINT FNCEN$("down to this point",40)
  276. 1385  FOR K=1 TO 750:NEXT K
  277. 1390                                '*** flashdot ***
  278. 1395  FOR K=1 TO 15
  279. 1400  CIRCLE(160,125),5,0
  280. 1405  LINE(158,125)-(162,125),0
  281. 1410  LINE(160,123)-(160,127),0
  282. 1415  FOR M=1 TO 25:NEXT M
  283. 1420  CIRCLE(160,125),5
  284. 1425  LINE(158,125)-(162,125)
  285. 1430  LINE(160,123)-(160,127)
  286. 1435  NEXT K
  287. 1440  LINE(160,120)-(160,130),0
  288. 1445  FOR K=1 TO 750:NEXT K
  289. 1450  GOSUB 30000      '** Textpad **
  290. 1455  PRINT FNCEN$("across this line,",40)
  291. 1460  FOR K=1 TO 750:NEXT K
  292. 1465  FOR H=120 TO 200 STEP 2
  293. 1470  PSET(H,90),0
  294. 1475  NEXT H
  295. 1480  FOR K=1 TO 750:NEXT K
  296. 1485  GOSUB 30000      '** Textpad **
  297. 1490  PRINT FNCEN$("THUS!",40)
  298. 1495  FOR K=1 TO 750:NEXT K
  299. 1500  LINE(157,57)-(124,86),0
  300. 1505  LINE(163,57)-(196,86),0
  301. 1510  FOR V=55 TO 90
  302. 1515  LINE(120,90)-(160,V),0
  303. 1520  LINE-(200,90),0
  304. 1525  LINE(120,90)-(160,55)
  305. 1530  LINE-(200,90)
  306. 1535  NEXT V
  307. 1540  FOR V=90 TO 125
  308. 1545  LINE(120,90)-(160,V),0
  309. 1550  LINE-(200,90),0
  310. 1555  LINE(120,90)-(200,90)
  311. 1560  NEXT V
  312. 1565  LINE(200,90)-(160,125),0
  313. 1570  LINE-(200,90),0
  314. 1575  FOR K=1 TO 750:NEXT K
  315. 1580  GOSUB 30000     '*** Textpad***
  316. 1585  PRINT FNCEN$("Your turn.  Press <C> to continue.",40)
  317. 1590  A$=INKEY$:IF A$="" GOTO 1590
  318. 1595  IF A$="C" OR A$="c" GOTO 1605
  319. 1600  GOTO 1580
  320. 1605  GOSUB 30000      '** Textpad **
  321. 1610  PRINT FNCEN$("Now, this corner",40)
  322. 1615  FOR K=1 TO 750:NEXT K
  323. 1620                             '*** arrow down ***
  324. 1625  FOR K=1 TO 15
  325. 1630  PSET(160,47):DRAW"E5L4U7L2D7L4F5"
  326. 1635  PAINT(160,41)
  327. 1640  FOR M=1 TO 25:NEXT M
  328. 1645  CIRCLE(160,41),7,0
  329. 1650  PAINT(160,41),0
  330. 1655  NEXT K
  331. 1660                             '***end arrow down ***
  332. 1665  FOR K=1 TO 750:NEXT K
  333. 1670  GOSUB 30000      '** Textpad **
  334. 1675  PRINT FNCEN$("folds down to this point",40)
  335. 1680  FOR K=1 TO 750:NEXT K
  336. 1685                                '*** flashdot ***
  337. 1690  FOR K=1 TO 15
  338. 1695  CIRCLE(160,115),5
  339. 1700  LINE(158,115)-(162,115)
  340. 1705  LINE(160,113)-(160,117)
  341. 1710  FOR M=1 TO 25:NEXT M
  342. 1715  CIRCLE(160,115),5,0
  343. 1720  LINE(158,115)-(162,115),0
  344. 1725  LINE(160,113)-(160,117),0
  345. 1730  NEXT K
  346. 1735  FOR K=1 TO 750:NEXT K
  347. 1740  GOSUB 30000      '** Textpad **
  348. 1745  PRINT FNCEN$("over this line,",40)
  349. 1750  FOR K=1 TO 750:NEXT K
  350. 1755  FOR H=126 TO 194 STEP 2
  351. 1760  PSET(H,85)
  352. 1765  NEXT H
  353. 1770  FOR K=1 TO 750:NEXT K
  354. 1775  GOSUB 30000      '** Textpad **
  355. 1780  PRINT FNCEN$("SO!",40)
  356. 1785  FOR K=1 TO 750:NEXT K
  357. 1790  LINE(126,85)-(146,67),0
  358. 1795  LINE(174,67)-(194,85),0
  359. 1800  PSET(131,80),0:PSET(189,80),0
  360. 1805  FOR V=55 TO 85
  361. 1810  LINE(126,85)-(160,V)
  362. 1815  LINE-(194,85)
  363. 1820  LINE(126,85)-(160,V),0
  364. 1825  LINE-(194,85),0
  365. 1830  NEXT V
  366. 1835  FOR V=85 TO 115
  367. 1840  LINE(126,85)-(160,V)
  368. 1845  LINE-(194,85)
  369. 1850  NEXT V
  370. 1855  FOR K=1 TO 750:NEXT K
  371. 1860  GOSUB 30000     '*** Textpad***
  372. 1865  PRINT FNCEN$("There!  Your turn.  <C> to continue.",40)
  373. 1870  A$=INKEY$:IF A$="" GOTO 1870
  374. 1875  IF A$="C" OR A$="c" GOTO 1885
  375. 1880  GOTO 1860
  376. 1885  GOSUB 30000      '** Textpad **
  377. 1890  PRINT FNCEN$("Our next folds are on the hidden side.",40)
  378. 1895  FOR K=1 TO 1500:NEXT K
  379. 1900  GOSUB 30000     '*** Textpad***
  380. 1905  PRINT FNCEN$("We'll flip over.",40)
  381. 1910  FOR K=1 TO 1500:NEXT K
  382. 1915  GOSUB 30000     '*** Textpad***
  383. 1920  PRINT FNCEN$("One moment, please.",40)
  384. 1925  FOR K=1 TO 1500:NEXT K
  385. 1930                             '***Zapsound***
  386. 1935  CLS
  387. 1940  FOR A=0 TO 20
  388. 1945  OUT 66,A:OUT 66,A
  389. 1950  OUT 97,(INP(97) OR 3)
  390. 1955  NEXT A
  391. 1960  SOUND 37,0
  392. 1965  LINE(126,85)-(110,100)
  393. 1970  LINE-(145,155)
  394. 1975  LINE-(151,137)
  395. 1980  LINE-(160,145)
  396. 1985  LINE-(169,137)
  397. 1990  LINE-(175,155)
  398. 1995  LINE-(210,100)
  399. 2000  LINE-(194,85)
  400. 2005  LINE-(126,85)
  401. 2010  PAINT(160,100)
  402. 2015  LINE(110,100)-(160,145),0
  403. 2020  LINE-(210,100),0
  404. 2025  FOR K=1 TO 750:NEXT K
  405. 2030  GOSUB 30000      '** Textpad **
  406. 2035  PRINT FNCEN$("Again for your reference,",40)
  407. 2040  FOR K=1 TO 1000:NEXT K
  408. 2045  PRINT FNCEN$("here's the center line",40)
  409. 2050  FOR K=1 TO 1000:NEXT K
  410. 2055  PRINT FNCEN$("of our figure.",40)
  411. 2060  FOR K=1 TO 1000:NEXT K
  412. 2065  FOR V=85 TO 145 STEP 2
  413. 2070  PSET(160,V),0
  414. 2075  NEXT V
  415. 2080  FOR K=1 TO 750:NEXT K
  416. 2085  GOSUB 30000      '** Textpad **
  417. 2090  PRINT FNCEN$("Our final folds take these corners",40)
  418. 2095  FOR K=1 TO 1500:NEXT K
  419. 2100  FOR K=1 TO 15
  420. 2105  PSET(126,77):DRAW"E5L4U7L2D7L4F5"
  421. 2110  PAINT(126,71)
  422. 2115  PSET(194,77):DRAW"E5L4U7L2D7L4F5"
  423. 2120  PAINT(194,71)
  424. 2125  CIRCLE(126,71),7,0
  425. 2130  PAINT(126,71),0
  426. 2135  CIRCLE(194,71),7,0
  427. 2140  PAINT(194,71),0
  428. 2145  NEXT K
  429. 2150                              '***end arrow down ***
  430. 2155  FOR K=1 TO 750:NEXT K
  431. 2160  GOSUB 30000      '** Textpad **
  432. 2165  PRINT FNCEN$("down to this point",40)
  433. 2170  FOR K=1 TO 750:NEXT K
  434. 2175                                '*** flashdot ***
  435. 2180  FOR K=1 TO 15
  436. 2185  CIRCLE(160,97),5,0
  437. 2190  LINE(158,97)-(162,97),0
  438. 2195  LINE(160,95)-(160,99),0
  439. 2200  FOR M=1 TO 25:NEXT M
  440. 2205  CIRCLE(160,97),5
  441. 2210  LINE(158,97)-(162,97)
  442. 2215  LINE(160,95)-(160,99)
  443. 2220  NEXT K
  444. 2225  FOR V=85 TO 145 STEP 2
  445. 2230  PSET(160,V),0
  446. 2235  NEXT V
  447. 2240  FOR K=1 TO 750:NEXT K
  448. 2245  GOSUB 30000      '** Textpad **
  449. 2250  PRINT FNCEN$("over these lines,",40)
  450. 2255  FOR K=1 TO 750:NEXT K
  451. 2260  LINE(145,85)-(126,124),0
  452. 2265  LINE(175,85)-(194,124),0
  453. 2270  FOR K=1 TO 750:NEXT K
  454. 2275  GOSUB 30000   '*** <Textpad> ***
  455. 2280  PRINT FNCEN$("* Hint *",40)
  456. 2285  FOR K=1 TO 750:NEXT K
  457. 2290  PRINT FNCEN$("Straightedge?",40)
  458. 2295  FOR K=1 TO 1500:NEXT K
  459. 2300  GOSUB 30000   '*** Textpad ***
  460. 2305  PRINT FNCEN$("Press <C> to continue.",40)
  461. 2310  A$=INKEY$:IF A$="" GOTO 2310
  462. 2315  IF A$="C" OR A$="c" GOTO 2325
  463. 2320  GOTO 2300
  464. 2325  GOSUB 30000      '** Textpad **
  465. 2330  PRINT FNCEN$("SO!",40)
  466. 2335  FOR K=1 TO 750:NEXT K
  467. 2340  LINE(114,107)-(126,125),0
  468. 2345  FOR Q=0 TO 23
  469. 2350  LINE(145,85)-(125+0.74*Q,85+0.26*Q),0
  470. 2355  LINE-(110+Q,100+0.39*Q),0
  471. 2360  LINE-(125,125),0
  472. 2365  LINE(145,85)-(124+0.74*Q,85+0.26*Q),0
  473. 2370  LINE-(109+Q,100+0.39*Q),0
  474. 2375  NEXT Q
  475. 2380  PSET(131,110),0
  476. 2385  FOR Q=0 TO 27
  477. 2390  LINE(145,85)-(142+0.67*Q,91+0.22*Q),0
  478. 2395  LINE-(133+Q,109+0.33*Q),0
  479. 2400  LINE-(126,124),0
  480. 2405  LINE(145,85)-(142+0.67*Q,91+0.22*Q)
  481. 2410  LINE-(133+Q,109+0.33*Q)
  482. 2415  LINE-(126,124)
  483. 2420  LINE(139+0.78*Q,97)-(136+0.89*Q,104),0
  484. 2425  LINE(138+0.78*Q,97)-(135+0.89*Q,104),0
  485. 2430  LINE(145,85)-(126,124)
  486. 2435  NEXT Q
  487. 2440  LINE(145,85)-(160,97),0
  488. 2445  LINE-(160,118),0
  489. 2450  LINE-(126,124),0
  490. 2455  FOR K=1 TO 750:NEXT K
  491. 2460  GOSUB 30000      '** Textpad **
  492. 2465  PRINT FNCEN$("and repeat on the other side.",40)
  493. 2470  FOR K=1 TO 750:NEXT K
  494. 2475  FOR Q=0 TO 23
  495. 2480  LINE(175,85)-(195-0.74*Q,85+0.26*Q),0
  496. 2485  LINE-(210-Q,100+0.39*Q),0
  497. 2490  LINE-(195,125),0
  498. 2495  LINE(175,85)-(196-0.74*Q,85+0.26*Q),0
  499. 2500  LINE-(211-Q,100+0.39*Q),0
  500. 2505  NEXT Q
  501. 2510  PSET(189,110),0
  502. 2515  FOR Q=0 TO 27
  503. 2520  LINE(175,85)-(178-0.67*Q,91+0.22*Q),0
  504. 2525  LINE-(187-Q,109+0.33*Q),0
  505. 2530  LINE-(194,124),0
  506. 2535  LINE(175,85)-(178-0.67*Q,91+0.22*Q)
  507. 2540  LINE-(187-Q,109+0.33*Q)
  508. 2545  LINE-(194,124)
  509. 2550  LINE(181-0.78*Q,97)-(184-0.89*Q,104),0
  510. 2555  LINE(182-0.78*Q,97)-(185-0.89*Q,104),0
  511. 2560  LINE(175,85)-(194,124)
  512. 2565  NEXT Q
  513. 2570  LINE(145,85)-(175,96),3,BF
  514. 2575  LINE(145,85)-(160,96),0
  515. 2580  LINE(175,85)-(160,96),0
  516. 2585  LINE-(160,118),0
  517. 2590  LINE-(194,124),0
  518. 2595  LINE(160,97)-(160,104)
  519. 2600  FOR K=1 TO 750:NEXT K
  520. 2605  GOSUB 30000      '** Textpad **
  521. 2610  PRINT FNCEN$("There!  All folds completed!",40)
  522. 2615  FOR K=1 TO 1500:NEXT K
  523. 2620  GOSUB 30000   '*** <Textpad> ***
  524. 2625  PRINT FNCEN$("Care to review those last folds?",40)
  525. 2630  FOR K=1 TO 1500:NEXT K
  526. 2635  GOSUB 30000      '** Textpad **
  527. 2640  PRINT FNCEN$("If so, press <R> to review.",40)
  528. 2645  FOR K=1 TO 1000:NEXT K
  529. 2650  PRINT FNCEN$("If not, press <C> to continue.",40)
  530. 2655  A$=INKEY$:IF A$="" GOTO 2655
  531. 2660  IF A$="R" OR A$="r" GOTO 2675
  532. 2665  IF A$="C" OR A$="c" GOTO 2695
  533. 2670  GOTO 2635
  534. 2675  GOSUB 30000   '*** <Textpad> ***
  535. 2680  PRINT FNCEN$("* Review *",40)
  536. 2685  FOR K=1 TO 1500:NEXT K
  537. 2690  GOTO 1935
  538. 2695  GOSUB 30000      '** Textpad **
  539. 2700  PRINT FNCEN$("Let's flip over to CICADA's formal side.",40)
  540. 2705  FOR K=1 TO 1500:NEXT K
  541. 2710  GOSUB 30000      '** Textpad **
  542. 2715  PRINT FNCEN$("One moment, please.",40)
  543. 2720  FOR K=1 TO 750:NEXT K
  544. 2725  CLS
  545. 2730  FOR A=0 TO 20
  546. 2735  OUT 66,A:OUT 66,A
  547. 2740  OUT 97,(INP(97) OR 3)
  548. 2745  NEXT A
  549. 2750  SOUND 37,0
  550. 2755  LINE(145,85)-(125,125)
  551. 2760  LINE-(145,155)
  552. 2765  LINE-(151,137)
  553. 2770  LINE-(160,145)
  554. 2775  LINE-(169,137)
  555. 2780  LINE-(175,155)
  556. 2785  LINE-(195,125)
  557. 2790  LINE-(175,85)
  558. 2795  LINE-(145,85)
  559. 2800  PAINT(160,100)
  560. 2805  LINE(120,90)-(160,125),0
  561. 2810  LINE-(200,90),0
  562. 2815  LINE(125,85)-(160,115),0
  563. 2820  LINE-(195,85),0
  564. 2825  PAINT(160,120),0
  565. 2830  LINE(145,85)-(125,125)
  566. 2835  LINE(175,85)-(195,125)
  567. 2840  LINE(146,155)-(155,121),0
  568. 2845  LINE(174,155)-(165,121),0
  569. 2850  LINE(160,126)-(160,145),0
  570. 2855  FOR K=1 TO 750:NEXT K
  571. 2860  GOSUB 30000      '** Textpad **
  572. 2865  PRINT FNCEN$("There!",40)
  573. 2870  FOR K=1 TO 1500:NEXT K
  574. 2875  GOSUB 30000   '*** <Textpad> ***
  575. 2880  PRINT FNCEN$("We'll give CICADA some eyes.",40)
  576. 2885  FOR K=1 TO 1500:NEXT K
  577. 2890  FOR A=0 TO 20
  578. 2895  OUT 66,A:OUT 66,A
  579. 2900  OUT 97,(INP(97) OR 3)
  580. 2905  NEXT A
  581. 2910  SOUND 37,0
  582. 2915  LINE(170,85)-(177,89),0
  583. 2920  LINE-(175,85),0
  584. 2925  LINE-(170,85),0
  585. 2930  PAINT(174,86),0
  586. 2935  LINE(170,85)-(177,89)
  587. 2940  LINE-(172,89),0
  588. 2945  LINE-(170,85),0
  589. 2950  LINE(150,85)-(143,89),0
  590. 2955  LINE-(145,85),0
  591. 2960  LINE-(150,85),0
  592. 2965  PAINT(146,86),0
  593. 2970  LINE(150,85)-(143,89)
  594. 2975  LINE-(148,89),0
  595. 2980  LINE-(150,85),0
  596. 2985  LINE(173,88)-(174,87),0
  597. 2990  LINE(147,88)-(146,87),0
  598. 2995  GOSUB 30000      '** Textpad **
  599. 3000  PRINT FNCEN$("Mission accomplished!",40)
  600. 3005  FOR K=1 TO 1500:NEXT K
  601. 3010  GOSUB 30000                '*** Textpad ***
  602. 3015  PRINT FNCEN$("     Press <1> - Return to MAIN MENU.",40)
  603. 3020  PRINT FNCEN$("      (2) - Repeat CICADA.",40)
  604. 3025  PRINT FNCEN$("         <3> - Exit from program.",40)
  605. 3030  E$=INPUT$(1)
  606. 3035  IF E$<"1" OR E$>"3" GOTO 3030
  607. 3040  SEL=VAL(E$)
  608. 3045  COMMON SEL
  609. 3050  CLS
  610. 3055  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  611. 3056  LINE(70,75)-(250,125),3,B
  612. 3060  ON SEL GOTO 3065,3070,3075
  613. 3065  CHAIN"a:main"
  614. 3070  CHAIN"a:cicada
  615. 3075  CHAIN"a:end"
  616. 9860  GOSUB 30000   '*** <Textpad> ***
  617. 30000  LOCATE 1,1
  618. 30010  PRINT"                                                                                                                        "
  619. 30020  LOCATE 1,1:RETURN
  620.